home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / death / _SETUP.1 / aliases.ini < prev    next >
INI File  |  1997-09-10  |  25KB  |  470 lines
  1. [aliases]
  2. n0=/flood /timer 40 1 /ctcp $$1 time
  3. n1=/op /mode $chan +o $$1
  4. n2=/deop /mode $chan -o $$1
  5. n3=/t /topic $chan  dEATH ThrustPACK3.1 ⌐1997 By X-cise
  6. n4=/pump /pdcc 50000
  7. n5=/wi /whois $$1
  8. n6=/w /whois $$1
  9. n7=/v /ctcp $$1 version
  10. n8=/F11 /say %codee
  11. n9=/F12 /say %codea
  12. n10=;-----------------------------------
  13. n11=;     (dEATH ThrustPACK)
  14. n12=;                Talkers
  15. n13=;-----------------------------------
  16. n14=/leet {
  17. n15=  %leettext = $upper(*1)
  18. n16=  %leettext = $replace(%leettext,A,a)
  19. n17=  %leettext = $replace(%leettext,E,e)
  20. n18=  %leettext = $replace(%leettext,I,i)
  21. n19=  %leettext = $replace(%leettext,O,o)
  22. n20=  %leettext = $replace(%leettext,U,u)
  23. n21=  %leettext = $replace(%leettext,Y,y)
  24. n22=  say %leettext
  25. n23=}
  26. n24=/upvowels {
  27. n25=  %uptext = $lower(*1)
  28. n26=  %uptext = $replace(%uptext,a,A)
  29. n27=  %uptext = $replace(%uptext,E,E)
  30. n28=  %uptext = $replace(%uptext,I,I)
  31. n29=  %uptext = $replace(%uptext,O,O)
  32. n30=  %uptext = $replace(%uptext,U,U)
  33. n31=  %uptext = $replace(%uptext,Y,Y)
  34. n32=  say %uptext
  35. n33=}
  36. n34=/kewltalk {
  37. n35=  set %text $upper(*1)
  38. n36=  set %text $replace(%text,W,\/\/)
  39. n37=  set %text $replace(%text,I,1)
  40. n38=  set %text $replace(%text,O,0)
  41. n39=  set %text $replace(%text,T,+)
  42. n40=  set %text $replace(%text,U,|_|)
  43. n41=  set %text $replace(%text,M,/\/\)
  44. n42=  set %text $replace(%text,N,|\|)
  45. n43=  set %text $replace(%text,C,<)
  46. n44=  set %text $replace(%text,L,|_)
  47. n45=  set %text $replace(%text,K,]{)
  48. n46=  set %text $replace(%text,V,\/)
  49. n47=  set %text $replace(%text,A,/-\)
  50. n48=  set %text $replace(%text,H,|-|)
  51. n49=  say %text
  52. n50=}
  53. n51=/rcaps {
  54. n52=  %i = 0
  55. n53=  %space = $chr(32)
  56. n54=  %altcaptext = á
  57. n55=  %firstlet = $mid(1,1,*1)
  58. n56=  :next
  59. n57=  inc %i
  60. n58=  if %i > $len(*1) { %lenwosp = $len(*1) - 1 | %altcaptext = %firstlet $+ $right(%lenwosp,%altcaptext) | say %altcaptext | halt }
  61. n59=  %thislet = $mid(%i,1,*1) 
  62. n60=  if %thislet == %space { set %altcaptext %altcaptext $+ á | goto next }
  63. n61=  set %rand $rand(1,2)
  64. n62=  if %rand == 1 { set %altcaptext %altcaptext $+ $upper(%thislet) | goto next }
  65. n63=  else { set %altcaptext %altcaptext $+ $lower(%thislet) | goto next }
  66. n64=}
  67. n65=/backwards {
  68. n66=  unset %backtext
  69. n67=  if ($1 == -d) { 
  70. n68=    set %backtext ºá
  71. n69=    set %text $remove(*1,$left(3,*1))
  72. n70=  }
  73. n71=  else { %text = *1 }
  74. n72=  %space = $chr(32)
  75. n73=  %i = $len(%text) + 1
  76. n74=  :next
  77. n75=  dec %i 1
  78. n76=  if %i == 0 { say %backtext | halt }
  79. n77=  %thischar = $mid(%i,1,%text)
  80. n78=  if %thischar == %space {
  81. n79=    %thislet = á
  82. n80=    if %backtext == $null { set %backtext %thislet | goto next }
  83. n81=    else { set %backtext %backtext $+ %thislet | goto next }
  84. n82=  }
  85. n83=  if %backtext == $null { set %backtext %thischar | goto next }
  86. n84=  else { set %backtext %backtext $+ %thischar | goto next }
  87. n85=}
  88. n86=/stars {
  89. n87=  unset %startext
  90. n88=  %space = $chr(32)
  91. n89=  %i = 0
  92. n90=  :next
  93. n91=  inc %i 1
  94. n92=  if %i > $len(*1) { say %startext | halt }
  95. n93=  %thischar = $mid(%i,1,*1)
  96. n94=  if %thischar == %space { 
  97. n95=    if %startext == $null { set %startext * | goto next }
  98. n96=    else { set %startext %startext $+ * | goto next }
  99. n97=  }
  100. n98=  if %startext == $null { set %startext * $+ %thischar $+ * | goto next }
  101. n99=  else { set %startext %startext $+ %thischar $+ * | goto next }
  102. n100=}
  103. n101=;-----------------------------------
  104. n102=;     (dEATH ThrustPACK)
  105. n103=;         Flood Protection
  106. n104=;-----------------------------------
  107. n105=/sf1 /.play -ctPROTECT $me $mircdir $+ Documents\stats.ini 0
  108. n106=/sf2 /.play -ctCHANNEL $me $mircdir $+ Documents\stats.ini 0
  109. n107=/sf3 /.play -ctUSERLIST $me $mircdir $+ Documents\stats.ini 0
  110. n108=/sf4 /.play -ctPROGRAMS $me $mircdir $+ Documents\stats.ini 0
  111. n109=/sf5 /run $mircdir $+ mirc32.exe $mircdir $+ bots\takeover\taker.ini | echo 4 -a Takeover Bot 1 òLoadedò  4 (dEATH ThrustPACK 3)
  112. n110=/sf6 /dde taker command "" /server %Var.Split $$?="Port (like 6667)?" | dde taker command "" /set %Channel $?="Auto Join Channel?"
  113. n111=/sf7 {
  114. n112=  :start
  115. n113=  set %Var.Temp $$?="How Many NCBs? Max 3"
  116. n114=  if (%Var.Temp == 1) { 
  117. n115=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
  118. n116=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | echo 4 -a Nick Colliding on: %Var.Split  4 (dEATH ThrustPACK 3)
  119. n117=    halt
  120. n118=  }
  121. n119=  if (%Var.Temp == 2) { 
  122. n120=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
  123. n121=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb2.ini | /dde ncb2 command "" /nick $$?="Nick to collide" 
  124. n122=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | dde ncb2 command "" /server %Var.Split $! | echo 4 -a Nick Colliding on: %Var.Split  4 (dEATH ThrustPACK 3)
  125. n123=    halt
  126. n124=  }
  127. n125=  if (%Var.Temp == 3) { 
  128. n126=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb1.ini | /dde ncb1 command "" /nick $$?="Nick to collide" 
  129. n127=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb2.ini | /dde ncb2 command "" /nick $$?="Nick to collide"
  130. n128=    run $mircdir $+ mirc32.exe $mircdir $+ bots\nickcollider\ncb3.ini | /dde ncb3 command "" /nick $$?="Nick to collide" 
  131. n129=    dde ncb1 command "" /server %Var.Split $$?="Port for NCB?" | dde ncb2 command "" /server %Var.Split $! | dde ncb3 command "" /server %Var.Split $! | echo 4 -a Nick Colliding on: %Var.Split  4 (dEATH ThrustPACK 3)
  132. n130=    halt
  133. n131=  }
  134. n132=  else { goto start }
  135. n133=}
  136. n134=/sf8 /run $mircdir $+ documents\split.txt | echo 4 -a Currently Split Servers 1 òLoadedò  4 (dEATH ThrustPACK 3)
  137. n135=/f1 {
  138. n136=  if (%Var.F1 == 1) { set %Var.ProtCtcp High | set %Var.ProtText High | set %Var.ProtDCC On | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òHighò | echo 2 TEXT Protection: òHighò | echo 2 DCC Protection: òOnò | echo 1 ------------------------------------------------ | set %Var.F1 2 | halt }
  139. n137=  if (%Var.F1 == 2) { set %Var.ProtCtcp Normal | set %Var.ProtText Normal | set %Var.ProtDcc On | echo 1 ------------------------------------------------ | echo 6 (4dEATH ThrustPACK 3.1 Flood Protection) | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òNormalò | echo 2 TEXT Protection: òNormalò | echo 2 DCC Protection: òOnò | echo 1 ------------------------------------------------ | set %Var.F1 3 | halt }
  140. n138=  if (%Var.F1 == 3) { set %Var.ProtCtcp Off | set %Var.ProtText Off | set %Var.ProtDcc Off | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òOffò | echo 2 TEXT Protection: òOffò | echo 2 DCC Protection: òOffò | echo 1 ------------------------------------------------ | set %Var.F1 1 | halt }
  141. n139=}
  142. n140=/f2 {
  143. n141=  if (%Var.F2 == 1) { set %Var.ProtCtcp High | echo 1 ------------------------------------------------ | echo 6(4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òHighò | echo 1 ------------------------------------------------ | set %Var.F2 2 | halt }
  144. n142=  if (%Var.F2 == 2) { set %Var.ProtCtcp Normal | echo 1 ------------------------------------------------ | echo 6(4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òNormalò | echo 1 ------------------------------------------------ | set %Var.F2 3 | halt }
  145. n143=  if (%Var.F2 == 3) { set %Var.ProtCtcp Off | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 CTCP Protection: òOffò | echo 1 ------------------------------------------------ | set %Var.F2 1 | halt }
  146. n144=}
  147. n145=/f3 {
  148. n146=  if (%Var.F3 == 1) { set %Var.ProtText High | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 TEXT Protection: òHighò | echo 1 ------------------------------------------------ | set %Var.F3 2 | halt }
  149. n147=  if (%Var.F3 == 2) { set %Var.ProtText Normal | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 TEXT Protection: òNormalò | echo 1 ------------------------------------------------ | set %Var.F3 3 | halt }
  150. n148=  if (%Var.F3 == 3) { set %Var.ProtText Off | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 TEXT Protection: òOffò | echo 1 ------------------------------------------------ | set %Var.F3 1 | halt }
  151. n149=}
  152. n150=/f4 {
  153. n151=  if (%Var.F4 == 1) { set %Var.ProtDCC On | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 DCC Protection: òOnò | echo 1 ------------------------------------------------ | set %Var.F4 2 | halt }
  154. n152=  if (%Var.F4 == 2) { set %Var.ProtDCC Off | echo 1 ------------------------------------------------ | echo 6 4dEATH ThrustPACK 3.1 Flood Protection | echo 1 ------------------------------------------------ | echo 2 DCC Protection: òOffò | echo 1 ------------------------------------------------ | set %Var.F4 1 | halt }
  155. n153=}
  156. n154=/f5 /fk -c
  157. n155=/f10 { .enable #Scan.User | raw -q whois %Var.FlooderNick }
  158. n156=/f11 {
  159. n157=  if (%Var.Flooder == $null) { echo 6 -a No Flooder to trace! | halt } 
  160. n158=  echo 2 -a  6òòò Tracing Flooders at: %Var.Flooder 6òòò
  161. n159=  set %Var.Total 0 | .enable #Scan.Flooder | who %Var.Flooder
  162. n160=}
  163. n161=/f12 /fa -n %Var.Flooder
  164. n162=;-----------------------------------
  165. n163=;     (dEATH ThrustPACK)
  166. n164=;          Away Options
  167. n165=;----------------------------------
  168. n166=/incawaysecs inc %awaysecs | if (%awaysecs == 60) { /set %awaysecs 0 }
  169. n167=/incawayminutes inc %awayminutes | if (%awayminutes == 60) { /set %awayminutes 0 }
  170. n168=/incawayhours /inc %awayhours
  171. n169=;-----------------------------------
  172. n170=;     (dEATH ThrustPACK)
  173. n171=;      Scans & Filter Kicks
  174. n172=;----------------------------------
  175. n173=/fa {
  176. n174=  set %i 1
  177. n175=  set %Var.Index 1
  178. n176=  if ($1 == -b) { set %Var.Ban y }
  179. n177=  if ($1 == -n) { set %Var.Ban n }
  180. n178=  :start
  181. n179=  if ($chan(%Var.Index) == $null) { echo 6 -a Kicked $$2 From All Channels | unset %Var.Ban | unset %i | unset %Var.Nick | unset %Var.Chan | unset %Var.Add | unset %Var.Index | halt }
  182. n180=  if ($me !isop $chan(%Var.Index)) { inc %Var.Index 1 | goto start }
  183. n181=  set %Var.Chan $chan(%Var.Index)
  184. n182=  set %i 1
  185. n183=  :Start.Chan
  186. n184=  if ($nick(%i,%Var.Chan) == $null) { inc %Var.Index 1 | goto start }
  187. n185=  set %Var.Nick $nick(%i,%Var.Chan)
  188. n186=  set %Var.Add $address(%Var.Nick,2)
  189. n187=  if ($$2 isin %Var.Add) || ($$2 iswm %Var.Add) || ($$2 == %Var.Add) { 
  190. n188=    if (%Var.Ban == Y) { ban %Var.Chan %Var.Nick 2 }
  191. n189=    kick %Var.Chan %Var.Nick Flooder Kick! - $$2 (4dEATH ThrustPACK 3.1
  192. n190=  }
  193. n191=  { inc %Var.Victims }     
  194. n192=  inc %i 1 | goto Start.Chan
  195. n193=}
  196. n194=/ipscan {
  197. n195=  if ($1 == $null) { set %IPScan.Address $$?="IP to scan for:" } | else { set %IPScan.Address $1 }
  198. n196=  echo 2 # 6òòò IP Scaning: # For: * $+ %IPScan.Address $+ * 6òòò | set %Var.Index 1 | set %IPScan.Index 0
  199. n197=  :scan
  200. n198=  set %Var.Temp $nick(%Var.Index,#) | if (%Var.Temp == $null) { goto end }
  201. n199=  set %Var.Temp $address(%Var.Temp,2)
  202. n200=  if (%IPScan.Address == %Var.Temp) { goto found }
  203. n201=  if (%IPScan.Address isin %Var.Temp) { goto found }
  204. n202=  if (%IPScan.Address iswm %Var.Temp) { goto found }
  205. n203=  inc %Var.Index | goto scan
  206. n204=  :found
  207. n205=  inc %IPScan.Index | echo 2 # 6 %IPScan.Index $+ . $nick(%Var.Index,#) 6(1 $+ %Var.Temp $+ 6)
  208. n206=  inc %Var.Index | goto scan
  209. n207=  :end
  210. n208=  echo 2 # 6òòò End Of Scan! Total: %IPScan.Index 6òòò | unset %IPScan.*
  211. n209=}
  212. n210=/clones {
  213. n211=  set %Var.Index 1
  214. n212=  echo 2 # 6òòò Clone Scaning: # 6òòò 
  215. n213=  :adduser
  216. n214=  set %Var.Temp $address($nick(%Var.Index,#),2)
  217. n215=  if (%Var.Temp == $null) { set %Var.Index 1 | goto listclones }
  218. n216=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] == $null) {
  219. n217=    set %Address. [ $+ [ %Var.Temp ] ] $nick(%Var.Index,#) | inc %Var.Index | goto adduser
  220. n218=  }
  221. n219=  if ([ %Address. [ $+ [ %Var.Temp ] ] ] != $null) {
  222. n220=    set %Address. $+ %Var.Temp [ %Address. [ $+ [ %Var.Temp ] ] ] 1--> $nick(%Var.Index,#)
  223. n221=    if ($findtok(%Clone.List,%Var.Temp,32) == $null) { set %Clone.List [ %Clone.List ] %Var.Temp }
  224. n222=    inc %Var.Index | goto adduser
  225. n223=  }
  226. n224=  :listclones
  227. n225=  set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
  228. n226=  echo 2 # 6 %Var.Index $+ . [ %Address. [ $+ [ %Var.Temp ] ] ] 6(1 $+ %Var.Temp $+ 6)
  229. n227=  inc %Var.Index | goto listclones
  230. n228=  :end
  231. n229=  dec %Var.Index | unset %Address.* | unset %Clone.List
  232. n230=  echo 2 # 6òòò End Of Scan! Total: %Var.Index 6òòò 
  233. n231=}
  234. n232=/chanstats {
  235. n233=  if ($$1 == -e) {
  236. n234=    set %Chan.Total 0 | unset %Chan.Address | set %Chan.Clones 0 | set %Chan.IRCops 0 | set %Chan.Ops 0
  237. n235=    set %Chan.NonOps 0 | set %Chan.Voice 0 | set %Chan.NonVoice 0 | set %Chan.Gone 0 | set %Chan.Here 0
  238. n236=    .enable #Scan.Channel | who #
  239. n237=  }
  240. n238=}
  241. n239=/ircopscan {
  242. n240=  if ($$1 == -c) {
  243. n241=    echo 2 -a 6òòò IRCop Scan for # 6òòò 
  244. n242=    set %Var.Total 0 | .enable #Scan.IRCop | who * o
  245. n243=  }
  246. n244=  if ($$1 == -g) {
  247. n245=    echo 2 -a 6òòò Global Visable IRCop Scan 6òòò 
  248. n246=    set %Var.Total 0 | .enable #Scan.IRCop | who 0 o
  249. n247=  }
  250. n248=}
  251. n249=/userstats {
  252. n250=  if ($$1 == -e) { .enable #Scan.User | raw -q whois $$2 }
  253. n251=}
  254. n252=/fk {
  255. n253=  if (# == $null) { halt }
  256. n254=  if ($1 == -c) {
  257. n255=    set %Filter.Ops $yesno(Include Ops in filter) | set %Filter.Ban $yesno(Ban also) | set %Var.Index 1
  258. n256=    :adduser
  259. n257=    set %Var.Temp $address($nick(%Var.Index,#),2)
  260. n258=    if (%Var.Temp == $null) { set %Var.Index 1 | goto getclones }
  261. n259=    if ([ %Address. [ $+ [ %Var.Temp ] ] ] == $null) {
  262. n260=      set %Address. [ $+ [ %Var.Temp ] ] $nick(%Var.Index,#) | inc %Var.Index | goto adduser
  263. n261=    }
  264. n262=    if ([ %Address. [ $+ [ %Var.Temp ] ] ] != $null) {
  265. n263=      set %Address. $+ %Var.Temp [ %Address. [ $+ [ %Var.Temp ] ] ] $nick(%Var.Index,#)
  266. n264=      if ($findtok(%Clone.List,%Var.Temp,32) == $null) { set %Clone.List %Clone.List %Var.Temp }
  267. n265=      inc %Var.Index | goto adduser
  268. n266=    }
  269. n267=    :getclones
  270. n268=    set %Var.Temp $gettok(%Clone.List,%Var.Index,32) | if (%Var.Temp == $null) { goto end }
  271. n269=    set %Clone.Address %Address. [ $+ [ %Var.Temp ] ] | set %Var.Clones 1
  272. n270=    :kickclones
  273. n271=    set %Clone.Nick $gettok(%Clone.Address,%Var.Clones,32)
  274. n272=    if (%Clone.Nick != $null) {
  275. n273=      if ((%Filter.Ops == 0) && (%Clone.Nick isop #)) { inc %Var.Clones | goto kickclones }
  276. n274=      if (%Filter.Ban == 1) { mode # +b $address(%Clone.Nick,2) }
  277. n275=      kick # %Clone.Nick Clones! %Var.Temp (4dEATH ThrustPACK 3.1 | inc %Var.Clones | goto kickclones
  278. n276=    }
  279. n277=    inc %Var.Index | goto getclones
  280. n278=    inc %Var.Victims
  281. n279=    :end
  282. n280=    unset %Clone* | unset %Address.* | unset %Filter.* | unset %Var.Clones | dec %Var.Index
  283. n281=    echo 4 # Clones Filter Kick Complete 1 ò $+ %Var.Index $+ ò  4 (4dEATH ThrustPACK 3.1)
  284. n282=    echo 2 # If clones were not kicked but you see a total greater then 0, it is because
  285. n283=    echo 2 # you didn't kick Ops, or your were one of the clones in the channel.
  286. n284=  }
  287. n285=  if ($1 == -i) {  
  288. n286=    if ($2 == $null) { set %Filter.Ops $yesno(Filter Ops also) } | else { set %Filter.Ops $2 }
  289. n287=    if ($3 == $null) { set %Filter.Ban $yesno(Ban also) } | else { set %Filter.Ban $3 }
  290. n288=    if ($4 == $null) { set %Filter.IP $$?="IP to scan for:" } | else { set %Filter.IP $4 }
  291. n289=    set %Var.Index 1 | set %Filter.Index 0
  292. n290=    :scan
  293. n291=    set %Var.Temp $nick(%Var.Index,#) | if (%Var.Temp == $null) { goto end }
  294. n292=    set %Var.Temp $address(%Var.Temp,2)
  295. n293=    if (%Filter.IP == %Var.Temp) { goto found }
  296. n294=    if (%Filter.IP isin %Var.Temp) { goto found }
  297. n295=    if (%Filter.IP iswm %Var.Temp) { goto found }
  298. n296=    inc %Var.Index | goto scan
  299. n297=    :found
  300. n298=    if ($nick(%Var.Index,#) == $me) { inc %Var.Index | goto scan }
  301. n299=    if ((%Filter.Ops == 0) && ($nick(%Var.Index,#) isop #)) { inc %Var.Index | goto scan }
  302. n300=    if ((%Filter.Ops == 1) && ($nick(%Var.Index,#) isop #)) {
  303. n301=      if (%Filter.Ban == 1) { mode # +b %Var.Temp }
  304. n302=      kick # $nick(%Var.Index,#) IP Filter: %Filter.IP (4dEATH ThrustPACK 3.1
  305. n303=      inc %Var.Victims
  306. n304=      inc %Filter.Index | inc %Var.Index | goto scan
  307. n305=    }
  308. n306=    if (%Filter.Ban == 1) { mode # +b %Var.Temp }
  309. n307=    kick # $nick(%Var.Index,#) IP Filter: %Filter.IP (4dEATH ThrustPACK 3.1
  310. n308=    inc %Filter.Index | inc %Var.Index | goto scan
  311. n309=    inc %Var.Victims
  312. n310=    :end
  313. n311=    echo 4 # IP Filter Kick Complete 1 ò $+ %Filter.Index $+ ò  4 (4dEATH ThrustPACK 3.1) | unset %Filter.*
  314. n312=  }
  315. n313=}
  316. n314=/nk { 
  317. n315=  %Var.Nick = $me
  318. n316=  %Var.Kick = $$1
  319. n317=  %Var.NewNick = $?="Enter the nick you want to use for kick" 
  320. n318=  nick %Var.NewNick 
  321. n319=  inc %Var.Victims
  322. n320=  kick $chan %Var.Kick 1You are the victim number12 %Var.Victims 1of $me !(dEATH
  323. n321=  nick %Var.Nick
  324. n322=}
  325. n323=;-----------------------------------
  326. n324=;     (dEATH ThrustPACK)
  327. n325=; dEATHSynchs & Takeovers
  328. n326=;----------------------------------
  329. n327=/desync1 /raw -q mode # +bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # +bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o*
  330. n328=/desync2 /raw -q mode # -bbbbbb 16,16 $+ *!*@*1* *!*@*2* *!*@*3* *!*@*4* *!*@*5* *!*@*6* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*7* *!*@*8* *!*@*9* *!*@*a* *!*@*b* *!*@*c* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*d* *!*@*e* *!*@*f* *!*@*g* *!*@*h* *!*@*i* | /raw -q mode # -bbbbbb 16,16 $+ *!*@*j* *!*@*k* *!*@*l* *!*@*m* *!*@*n* *!*@*o* 
  331. n329=/bb {
  332. n330=  raw -q mode # +bbbbbb +@+. +@+. +@+. +@+. +@+. +@.+.
  333. n331=  raw -q mode # +bbbbbb ++@+-. +-@+. +-@+. +@-+.- +-@+.+ ++@+.+.
  334. n332=  raw -q mode # +bbbbbb ++@++. ++@++. ++@+.+ ++@++. ++@+. .++@..+
  335. n333=  raw -q mode # +bbbbbb -++@+++. +++@++. +++@+.+ ++@+++. +++@-+. .++@-..+
  336. n334=}
  337. n335=/md {
  338. n336=  set %Var.Chan $chan
  339. n337=  set %i 1
  340. n338=  set %Var.Index 1
  341. n339=  if (s isin $1) { set %Var.Safe $$2 }
  342. n340=  if (t isin $1) { set %Var.Take y }
  343. n341=  if (undernet isin $server) { set %Var.Num 6 }
  344. n342=  else { set %Var.Num 4 }
  345. n343=  :start
  346. n344=  set %Var.User $opnick(%i,%Var.Chan)
  347. n345=  if (%Var.User == $null) { 
  348. n346=    raw -q mode %Var.Chan -oooooo %Var.Nick 
  349. n347=    if (%Var.Take == y) { /mode # +smpti | /topic %Var.Chan ( dEATH ThrustPACK 3.1 ) }
  350. n348=    if (s isin $1) { raw -q mode # +o %Var.Safe }
  351. n349=    echo 6 # Mass Deop On # Complete! 
  352. n350=    unset %Var.Nick | unset %i | unset %Var.Chan | unset %Var.Index | unset %Var.Num | unset %Var.Safe | unset %Var.Take | halt 
  353. n351=  }
  354. n352=  if (%Var.User == $me) || (%Var.User == %Var.Safe) { inc %i 1 | goto start }
  355. n353=  if (%Var.User != $me) { set %Var.Nick %Var.User %Var.Nick | if (%Var.Index == %Var.Num) { raw -q mode %Var.Chan -oooooo %Var.Nick | unset %Var.Nick | set %Var.Index 1 | inc %i 1 | goto start } | inc %Var.Index 1 }  
  356. n354=  inc %i 1 
  357. n355=  goto start
  358. n356=}  
  359. n357=/mk {
  360. n358=  set %i 1
  361. n359=  set %Var.Int 1
  362. n360=  :start
  363. n361=  set %Var.Nick $nick(%i,#)
  364. n362=  if (%Var.Nick == $null) { echo 6 # Mass Kick On # Complete! | unset %i | unset %Var.Nick | unset %Var.int | halt }
  365. n363=  if (%Var.Nick != $me) { kick # %Var.Nick Mass Kick! Wh0re Number: %Var.Int | inc %Var.int 1 | inc %Var.Victims }
  366. n364=  inc %i 1  
  367. n365=  goto start  
  368. n366=}
  369. n367=/mb {
  370. n368=  set %i 1
  371. n369=  :start
  372. n370=  set %Var.Nick $nick(%i,#)
  373. n371=  if (%Var.Nick == $null) { echo 6 # Mass Ban On # Complete! | unset %i | unset %Var.Nick | halt }
  374. n372=  if (%Var.Nick != $me) { ban # %Var.Nick 3 }
  375. n373=  inc %i 1  
  376. n374=  goto start  
  377. n375=}
  378. n376=;-----------------------------------
  379. n377=;     (dEATH ThrustPACK)
  380. n378=;             Flood Alert
  381. n379=;----------------------------------
  382. n380=/fecho {
  383. n381=  echo 1 -s 4dEATH ThrustPACK 3.1
  384. n382=  echo 6 -s òSomebody is Flooding You !ò 
  385. n383=  echo 2 -s ò3Floodò4 *3
  386. n384=  echo 2 -s ò3Nickò4  $$1
  387. n385=  echo 2 -s ò3Addressò4 ( $+ $$2 $+ ) 
  388. n386=  echo 1 -s 4What can dEATH do now ?
  389. n387=  echo 2 -s ò3Press 4F10 to view /whois info
  390. n388=  echo 2 -s ò3Press 4F11 to trace this site.
  391. n389=  echo 2 -s ò3Press 4F12 to kick site from channels.
  392. n390=  echo 1 -s 4dEATH ThrustPACK 3.1
  393. n391=  set %Var.FlooderNick $$1
  394. n392=  if (%Group.AutoFk == On) { fa -n %Var.Flooder }
  395. n393=  if (%Group.AutoFkb == On) { fa -b %Var.Flooder }
  396. n394=  /splay $mircdir $+ wavs\flood.wav
  397. n395=}
  398. n396=
  399. n397=/nickbot {
  400. n398=  unset %NickProt.Botnick
  401. n399=  %NickProt.Botnick = $$?="What is the nick of NickServer?"
  402. n400=  echo 6 Nickserver bot's nick is now saved... Nick server is %NickProt.Botnick
  403. n401=  echo 7  Read here !
  404. n402=  echo 1 -----------
  405. n403=  echo 6 If you want to register your nick now write : /register_me
  406. n404=}
  407. n405=/protnick {
  408. n406=  unset %NickProt.Protnick
  409. n407=  %NickProt.Protnick = $$?="What is the nick you want to register?"
  410. n408=  echo 6 The nick you want to register is now saved... The registered nick is %NickProt.Protnick
  411. n409=  echo 7  Read here !
  412. n410=  echo 1 -----------
  413. n411=  echo 6 If you want to register your nick now write : /register_me
  414. n412=}
  415. n413=/passw {
  416. n414=  unset %NickProt.Password  
  417. n415=  %NickProt.Password = $$?="Your password please"
  418. n416=  echo 6 Your password is now saved... Do not forget, your password is : %NickProt.Password
  419. n417=  echo 7  Read here !
  420. n418=  echo 1 -----------
  421. n419=  echo 6 If you want to register your nick now write : /register_me
  422. n420=}
  423. n421=/sall {
  424. n422=  unset %NickProt.Botnick
  425. n423=  unset %NickProt.Protnick
  426. n424=  unset %NickProt.Password
  427. n425=  %NickProt.Botnick = $$?="What is the nick of NickServer?"
  428. n426=  %NickProt.Protnick = $$?="What is the nick you want to register?"
  429. n427=  %NickProt.Password = $$?="Your password please"
  430. n428=  echo 6 Your settings are now saved... 
  431. n429=  echo 6  %NickProt.Botnick is the nick server
  432. n430=  echo 6  %NickProt.Protnick is your registered nick
  433. n431=  echo 6  %NickProt.Password is your password
  434. n432=  nick %NickProt.Protnick
  435. n433=  echo 6 You have to change your nick to %NickProt.ProtNick .
  436. n434=  echo 6 There mustn't be any other person using this nick if you want to register it...
  437. n435=  echo 1 -----------
  438. n436=  echo 7  Read here !
  439. n437=  echo 1 -----------
  440. n438=  echo 6 If you want to register your nick now write : /register_me
  441. n439=}
  442. n440=/delprot {
  443. n441=  unset %NickProt.Botnick
  444. n442=  unset %NickProt.Protnick
  445. n443=  unset %NickProt.Password
  446. n444=  echo 6 Your settings have been removed. Please run Nick Setup again.
  447. n445=}
  448. n446=/recovern {
  449. n447=  msg %NickProt.Botnick RECOVER %NickProt.Protnick %NickProt.Password
  450. n448=}
  451. n449=/releasen {
  452. n450=  msg %NickProt.Botnick RELEASE %NickProt.Protnick %NickProt.Password
  453. n451=}
  454. n452=/register_me {
  455. n453=  if (%NickProt.Protnick == $nick) { msg %NickProt.Botnick REGISTER %NickProt.Password | halt } else goto start
  456. n454=  :start
  457. n455=  echo 1 -----------
  458. n456=  echo 7  Registration can not be completed !
  459. n457=  echo 1 -----------
  460. n458=  echo 6 Change your nick to %NickProt.Protnick and run /register_me again
  461. n459=  :halt
  462. n460=}
  463. n461=/kicker {
  464. n462=  inc %Var.Victims
  465. n463=  kick $chan $$1 1You are the victim number12 %Var.Victims 1of $me !(dEATH
  466. n464=}
  467. n465=/ident {
  468. n466=msg %NickProt.Botnick IDENTIFY %NickProt.Password
  469. n467=}
  470.